home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / x1____i1.p2s < prev    next >
Encoding:
Text File  |  1994-01-07  |  1.8 KB  |  67 lines
  1. # DESCRIPTION:
  2. # --------------------------------------------------------------
  3. #
  4. # Open CDXA, Tests position of device, Close
  5. #
  6. # --------------------------------------------------------------
  7. @BREAK              A CDXA WILL NEED TO BE IN THE DEFAULT CD-ROM DRIVE
  8.  
  9. defaultconnection cdxa00 make type xa stream to ampmix totype amp stream wait
  10.  
  11. open cdxa00 alias cdxa_1 shareable notify
  12. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  13. @WAIT_NOTIFY 1 30000
  14.  
  15. acquire cdxa_1 wait
  16. @WAIT_PASSDEVICE cdxa_1
  17.  
  18. # /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  19. # --------------------------------------------------------------
  20. #
  21. # The \PATH\FILENAME.EXT on the following command line will need
  22. # to be changed to a path and filename on your test CDXA Disk.
  23. #
  24. # --------------------------------------------------------------
  25. # \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  26.  
  27. load cdxa_1 \PATH\FILENAME.EXT notify
  28. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #2
  29. @WAIT_NOTIFY 2 60000
  30.  
  31. status cdxa_1 media present wait
  32. =TRUE
  33.  
  34. cue cdxa_1 output notify
  35. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CUE #3
  36. @WAIT_NOTIFY 3 30000
  37.  
  38. setpositionadvise cdxa_1 on every 10000 notify
  39. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET_POSITION_ADVISE #4
  40. @WAIT_NOTIFY 4 30000
  41.  
  42. seek cdxa_1 to start notify
  43. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SEEK #5
  44. @WAIT_NOTIFY 5 30000
  45.  
  46. play cdxa_1 wait
  47.  
  48. seek cdxa_1 to start notify
  49. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SEEK #6
  50. @WAIT_NOTIFY 6 30000
  51.  
  52. play cdxa_1 wait
  53.  
  54. seek cdxa_1 to start notify
  55. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SEEK #7
  56. @WAIT_NOTIFY 7 30000
  57.  
  58. play cdxa_1 wait
  59.  
  60. seek cdxa_1 to start notify
  61. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SEEK #8
  62. @WAIT_NOTIFY 8 30000
  63.  
  64. close cdxa_1 notify
  65. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #9
  66. @WAIT_NOTIFY 9 30000
  67.